home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / phonepak_25_1.lha / PhonePak_2.5 / rexxTestHost.ppak < prev    next >
Encoding:
Text File  |  1994-05-18  |  1.1 KB  |  26 lines
  1. /************************************************************************/
  2. /* This is a simple script to demonstrate the use of an ARexx host.     */
  3. /* First, open the demo system on the PhonePak Switchboard and set the  */
  4. /* (Master) mailbox's ARexx host to "PPakTest" using the Route/Set      */
  5. /* ARexx Host menu item.  Close the Switchboard, choosing the Save      */
  6. /* option of the "Save Changes" requester.  Then, run this program and  */
  7. /* use local access mode to start the demo system.  Enter a touch-tone  */
  8. /* code while the greeting is playing.  The code you entered will be    */
  9. /* displayed in the console window in which this program is running,    */
  10. /* and the greeting will start over again.  Although this example is    */
  11. /* not very useful by itself, it demonstrates the ability of an ARexx   */
  12. /* script to receive information from LineMan quite handily.            */
  13. /************************************************************************/
  14.  
  15. addlib('libs:rexxsupport.library',0,-30,0)
  16. openport('PPakTest')
  17. r=0
  18.  
  19. do until r
  20.     r=waitpkt('PPakTest')
  21.     end
  22.  
  23. packet=getpkt('PPakTest')
  24. say getarg(packet,0)
  25. reply(packet,0,'(MASTER)')
  26.